Dim btnWidth, btnHeight, btnLine, btnNum, btnSpace As Integer

Private Sub Form_Load()
	btnWidth = 1900
	btnHeight = 320
	btnLine = 8
	btnSpace = 250
	btnNum = 148
	With Me
		.Width = (btnWidth * btnLine) + (btnSpace * (btnLine + 2))
		.Height = (btnHeight * ((btnNum \ btnLine) + 1)) + (btnSpace * ((btnNum \ btnLine) + 4))
		.Top = Screen.Height / 2 - Me.Height / 2
		.Left = Screen.Width / 2 - Me.Width / 2
	End With
	Call Set_btnConfig
End Sub

Private Sub Cmd_Click(Index As Integer)
	Clipboard.Clear
	Clipboard.SetText Get_ClipString(Index)
End Sub

Private Sub Set_btnConfig()
For i = 0 To btnNum
	If i <> 0 Then
		Load Cmd(i)
	End If
	With Cmd(i)
		.Width = btnWidth
		.Height = btnHeight
		.Left = (btnSpace + Cmd(0).Width) * (i Mod btnLine) + btnSpace
		.Top = (btnSpace + Cmd(0).Height) * (i \ btnLine) + btnSpace
		.Caption = Get_ClipString(i)
		.Visible = True
	End With
Next
End Sub

Private Function Get_ClipString(valColorNum)
	Dim ColorName() As String
	ReDim ColorName(btnNum) As String
	
	ColorName(0) = "000 Off White"
	ColorName(1) = "007 Shell Grey"
	ColorName(2) = "012 Silver"
	ColorName(3) = "017 Metal Grey"
	ColorName(4) = "028 Antique White"
	ColorName(5) = "029 White"
	ColorName(6) = "030 Black"
	ColorName(7) = "077 Charcoal"
	ColorName(8) = "103 Icy Pink"
	ColorName(9) = "105 Sideshow Rose"
	ColorName(10) = "112 Nude"
	ColorName(11) = "115 Powder Pink"
	ColorName(12) = "117 Light Pink"
	ColorName(13) = "123 Pearl Pink"
	ColorName(14) = "141 Cinnabar"
	ColorName(15) = "146 Cameo"
	ColorName(16) = "148 Tulip"
	ColorName(17) = "149 Wild Rose"
	ColorName(18) = "150 Pink"
	ColorName(19) = "152 Fantasy Rose"
	ColorName(20) = "153 Sherbert"
	ColorName(21) = "154 Rose Pink"
	ColorName(22) = "156 Hot Pink"
	ColorName(23) = "158 Quartz"
	ColorName(24) = "159 Passion Fruit"
	ColorName(25) = "160 Dusty Rose"
	ColorName(26) = "161 Sweet Nectar"
	ColorName(27) = "164 Antique Mauve"
	ColorName(28) = "165 Rosy Mauve"
	ColorName(29) = "168 Colonial Rose"
	ColorName(30) = "169 Rosewood"
	ColorName(31) = "174 Victorian Rose"
	ColorName(32) = "175 Shocking Pink"
	ColorName(33) = "177 Rose Wine"
	ColorName(34) = "183 Garden Rose"
	ColorName(35) = "187 Azalea"
	ColorName(36) = "193 Beauty"
	ColorName(37) = "198 La Rosa"
	ColorName(38) = "203 Moonstone"
	ColorName(39) = "210 Coral Rose"
	ColorName(40) = "235 Poppy Red"
	ColorName(41) = "238 Light Coral"
	ColorName(42) = "243 Watermelon"
	ColorName(43) = "250 Red"
	ColorName(44) = "252 Hot Red"
	ColorName(45) = "260 Scarlet"
	ColorName(46) = "264 Ruby"
	ColorName(47) = "275 Wine"
	ColorName(48) = "276 Maroon"
	ColorName(49) = "277 Burgundy"
	ColorName(50) = "285 Plum"
	ColorName(51) = "303 Blue Vapor"
	ColorName(52) = "305 Light Blue"
	ColorName(53) = "307 Bluebell"
	ColorName(54) = "308 Blue Tobaz"
	ColorName(55) = "311 Blue Mist"
	ColorName(56) = "313 Crystalline"
	ColorName(57) = "314 Aqua"
	ColorName(58) = "317 Misty Turquoise"
	ColorName(59) = "322 Ocean Blue"
	ColorName(60) = "323 Tropic"
	ColorName(61) = "324 Mineral Ice"
	ColorName(62) = "327 Aegean Blue"
	ColorName(63) = "328 Island Blue"
	ColorName(64) = "329 Cobalt"
	ColorName(65) = "332 French Blue"
	ColorName(66) = "333 Bluebird"
	ColorName(67) = "335 Copen"
	ColorName(68) = "336 Porcelain Blue"
	ColorName(69) = "337 Capri Blue"
	ColorName(70) = "338 Antique Blue"
	ColorName(71) = "340 Turquoise"
	ColorName(72) = "342 Mallard"
	ColorName(73) = "343 Tornado Blue"
	ColorName(74) = "346 Jade"
	ColorName(75) = "347 Teal"
	ColorName(76) = "350 Royal"
	ColorName(77) = "352 Electric Blue"
	ColorName(78) = "363 Smoke Blue"
	ColorName(79) = "365 Light Navy"
	ColorName(80) = "366 Batik Blue"
	ColorName(81) = "369 Military Blue"
	ColorName(82) = "370 Navy"
	ColorName(83) = "371 Ink Blue"
	ColorName(84) = "420 Lilac Mist"
	ColorName(85) = "430 Light Orchid"
	ColorName(86) = "434 Fresco"
	ColorName(87) = "435 Thistle"
	ColorName(88) = "447 Iris"
	ColorName(89) = "458 Wisteria"
	ColorName(90) = "483 Grape"
	ColorName(91) = "464 Delphinium"
	ColorName(92) = "465 Purple"
	ColorName(93) = "467 Ultra Violet"
	ColorName(94) = "470 Regal Purple"
	ColorName(95) = "473 Amethyst"
	ColorName(96) = "476 Grappa"
	ColorName(97) = "477 Viola"
	ColorName(98) = "510 Ice Mint"
	ColorName(99) = "513 Pastel Green"
	ColorName(100) = "524 Lime Juice"
	ColorName(101) = "525 Pistachio"
	ColorName(102) = "530 Mint"
	ColorName(103) = "544 Key Lime"
	ColorName(104) = "548 Kiwi"
	ColorName(105) = "550 Apple Green"
	ColorName(106) = "556 Acid Green"
	ColorName(107) = "563 Willow"
	ColorName(108) = "564 Celedon"
	ColorName(109) = "566 Soft Pine"
	ColorName(110) = "567 Sping Moss"
	ColorName(111) = "569 Deep Sage"
	ColorName(112) = "570 Moss"
	ColorName(113) = "577 Sage Green"
	ColorName(114) = "580 Emerald"
	ColorName(115) = "583 Parrot Green"
	ColorName(116) = "587 Forest Green"
	ColorName(117) = "589 Hunter"
	ColorName(118) = "593 Spuce"
	ColorName(119) = "614 Chamois"
	ColorName(120) = "617 Baby Maize"
	ColorName(121) = "625 Pineapple"
	ColorName(122) = "640 Lemon"
	ColorName(123) = "644 Buttercup"
	ColorName(124) = "645 Daffodil"
	ColorName(125) = "650 Maize"
	ColorName(126) = "660 Yellow Gold"
	ColorName(127) = "668 Tangerine"
	ColorName(128) = "675 Gold"
	ColorName(129) = "687 Dijon"
	ColorName(130) = "690 Old Gold"
	ColorName(131) = "714 Petal Peach"
	ColorName(132) = "720 Peach"
	ColorName(133) = "750 Torrid Orange"
	ColorName(134) = "761 Autumn Orange"
	ColorName(135) = "780 Rust"
	ColorName(136) = "789 Sherry"
	ColorName(137) = "793 Raisin"
	ColorName(138) = "810 Ivory"
	ColorName(139) = "813 Vanilla"
	ColorName(140) = "815 Cream"
	ColorName(141) = "820 Candlelight"
	ColorName(142) = "824 Buttermilk"
	ColorName(143) = "826 Raw Silk"
	ColorName(144) = "835 Tan"
	ColorName(145) = "847 Turftan"
	ColorName(146) = "850 Brown"
	ColorName(147) = "868 Cappuccino"
	ColorName(148) = "As artwork"
	Get_ClipString = ColorName(valColorNum)
End Function